#!/usr/bin/env perl -w

use strict;
use Flickr::API::Rest;
use Test::More tests => 1;

use Data::Dumper;

my $api_key = 'test';
my $secret  = 'test';
my $flick 	= new Flickr::API::Rest($api_key, $secret, 'format' => 'perl');

my $results = $flick->flickr_test_echo();

ok(
	exists $results->{err}{code} && $results->{err}{code} == 100,
	"Check for appropriate error code from flickr.test.echo"
);